home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / CHOPIN1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-09-29  |  1.1 KB  |  20 lines
  1. 10  T$="t92"
  2. 11  AA$= "l1mlo1g+l12c+o2g+o3c+ec+o2g+c+g+o3c+ec+o2g+"
  3. 12  AB$= "l12c+g+o3c+ec+o2g+c+g+o3c+ec+o2g+"
  4. 15  A$="l16o2c+o3g+ag+gg+o4c+ed+c+d+c+cc+eg+"
  5. 30  C$="o3p16ao4c+d+f+ao5c+d+bag+f+ed+f+c+cd+o4ag+f+aed+f+c+cd+o3ag+ba"
  6. 40  D$= "o4d+ed+dd+ba+g+go5ed+c+o4ba+g+ga+g+bded+g+o3a+o4c+o3bo4d+o3ga+g+gg+"
  7. 45  E$= "o3mlg+mso4g+cc+mlo3f+mso4f+cc+mlo3fmso4fcc+o3mlf+o4msf+cc+"
  8. 50  F$= "o3mlc+mso4c+o3f+amld+o4msd+o3f+amlemso4eo3g+bmlg+mso4g+o3bo4e"
  9. 55  G$= "o3mlfmso4fo3bo4d+mlo3f+mso4f+o3bo4d+mlo3amso4ao3bo4emlo3g+mso4g+o3bo4e"
  10. 60  H$= "o3mlg+mso4g+cc+mlo3f+mso4f+cc+mld+mso5d+o4f+amlo4c+o5msc+o4f+a"
  11. 65  I$=  "o4msc+o5mlc+mso4d+f+o4co5mlcmso4d+f+co5mlcmso4d+f+cmlo5cmso4d+f+"
  12. 66  J$=  "o4msco5mlcmso4d+f+o3bo4mlbmso4d+f+o3bo4mlbmso4d+f+o3a+mlo4a+mso4d+f+"
  13. 67  JJ$=  "o4msco5co4d+f+o3bo4bo4d+f+o3bo4bo4d+f+o3a+o4a+o4d+f+"
  14. 68  K$=  "o3msa+mlo4a+mso4d+f+o3amlo4amso4d+f+o3amlo4msao4d+f+o3ao4mlamso4d+f+"
  15. 69  KK$=  "o3msa+o4a+o4d+f+o3ao4ao4d+f+o3ao4ao4d+f+o3g+o4g+o4d+f+"
  16. 100  PLAY "xt$;xaa$;xab$;xA$;xA$;xC$;xa$;xa$;xd$;"
  17. 105  PLAY "xe$;xf$;xe$;xg$;xe$;xf$;xh$;xi$;xj$;xk$;xjj$;xkk$;"
  18. 110  FOR I=1 TO 1000:NEXT I
  19. 120  CHAIN"A:CLASSICS.BAS"
  20.